VERSION 5.00
Begin VB.Form frmHazMat 
   BackColor       =   &H00FFFFFF&
   Caption         =   "Hazardous Materials"
   ClientHeight    =   3645
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   10005
   Icon            =   "frmHazMat.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   3645
   ScaleWidth      =   10005
   StartUpPosition =   1  'CenterOwner
   Begin VB.CommandButton cmdCancel 
      Appearance      =   0  'Flat
      BackColor       =   &H00E0E0E0&
      Caption         =   "&Cancel"
      Height          =   315
      Left            =   5280
      MaskColor       =   &H0080C0FF&
      Style           =   1  'Graphical
      TabIndex        =   11
      Top             =   3180
      UseMaskColor    =   -1  'True
      Width           =   1215
   End
   Begin VB.CommandButton cmdSave 
      Appearance      =   0  'Flat
      BackColor       =   &H00E0E0E0&
      Caption         =   "&Save/Exit"
      Height          =   315
      Left            =   3480
      MaskColor       =   &H0080C0FF&
      Style           =   1  'Graphical
      TabIndex        =   10
      Top             =   3180
      UseMaskColor    =   -1  'True
      Width           =   1215
   End
   Begin VB.Frame Frame4 
      BackColor       =   &H00FFFFFF&
      Caption         =   " Haz-Mat OP-900 Required Fields"
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000080FF&
      Height          =   2895
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   9735
      Begin VB.ComboBox f489 
         Height          =   315
         ItemData        =   "frmHazMat.frx":030A
         Left            =   6360
         List            =   "frmHazMat.frx":030C
         TabIndex        =   6
         Top             =   1080
         Width           =   735
      End
      Begin VB.CheckBox f1493 
         BackColor       =   &H00FFFFFF&
         Caption         =   "Print OP-900"
         Height          =   195
         Left            =   1980
         TabIndex        =   9
         Top             =   2520
         Width           =   2175
      End
      Begin VB.ComboBox f471 
         Height          =   315
         ItemData        =   "frmHazMat.frx":030E
         Left            =   1980
         List            =   "frmHazMat.frx":032D
         TabIndex        =   5
         Top             =   1080
         Width           =   1395
      End
      Begin VB.TextBox f1903 
         Height          =   615
         Left            =   1980
         MultiLine       =   -1  'True
         ScrollBars      =   2  'Vertical
         TabIndex        =   7
         Top             =   1440
         Width           =   7395
      End
      Begin VB.TextBox f492 
         Height          =   315
         Left            =   6360
         TabIndex        =   4
         Top             =   720
         Width           =   735
      End
      Begin VB.TextBox f3072 
         Height          =   315
         Left            =   1980
         TabIndex        =   8
         Top             =   2100
         Width           =   7395
      End
      Begin VB.TextBox f466 
         Height          =   315
         Left            =   1980
         TabIndex        =   3
         Top             =   720
         Width           =   675
      End
      Begin VB.TextBox f451 
         Height          =   315
         Left            =   1980
         TabIndex        =   1
         Top             =   360
         Width           =   675
      End
      Begin VB.TextBox f484 
         Height          =   315
         Left            =   6360
         TabIndex        =   2
         Top             =   360
         Width           =   1395
      End
      Begin VB.Label Label5 
         Alignment       =   1  'Right Justify
         BackColor       =   &H00FFFFFF&
         Caption         =   "(and Packaging Type)"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   120
         TabIndex        =   20
         Top             =   1740
         Width           =   1755
      End
      Begin VB.Label Label2 
         Alignment       =   1  'Right Justify
         BackColor       =   &H00FFFFFF&
         Caption         =   "UN/NA ID #:"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   420
         TabIndex        =   19
         Top             =   420
         Width           =   1455
      End
      Begin VB.Label Label9 
         Alignment       =   1  'Right Justify
         BackColor       =   &H00FFFFFF&
         Caption         =   "Packing Group:"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   4800
         TabIndex        =   18
         Top             =   1140
         Width           =   1455
      End
      Begin VB.Label Label8 
         Alignment       =   1  'Right Justify
         BackColor       =   &H00FFFFFF&
         Caption         =   "Label Codes:"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   120
         TabIndex        =   17
         Top             =   2160
         Width           =   1755
      End
      Begin VB.Label Label10 
         Alignment       =   1  'Right Justify
         BackColor       =   &H00FFFFFF&
         Caption         =   "DOT Shipping Name:"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   60
         TabIndex        =   16
         Top             =   1500
         Width           =   1815
      End
      Begin VB.Label Label6 
         Alignment       =   1  'Right Justify
         BackColor       =   &H00FFFFFF&
         Caption         =   "Quantity:"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   420
         TabIndex        =   15
         Top             =   780
         Width           =   1455
      End
      Begin VB.Label Label7 
         Alignment       =   1  'Right Justify
         BackColor       =   &H00FFFFFF&
         Caption         =   "DOT Hazard Class:"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   4500
         TabIndex        =   14
         Top             =   780
         Width           =   1755
      End
      Begin VB.Label Label1 
         Alignment       =   1  'Right Justify
         BackColor       =   &H00FFFFFF&
         Caption         =   "Unit of Measure:"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   420
         TabIndex        =   13
         Top             =   1140
         Width           =   1455
      End
      Begin VB.Label Label3 
         Alignment       =   1  'Right Justify
         BackColor       =   &H00FFFFFF&
         Caption         =   "Emergency #:"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   4800
         TabIndex        =   12
         Top             =   420
         Width           =   1455
      End
   End
End
Attribute VB_Name = "frmHazMat"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'20071016-01 New frmHazMat added to support OP-900 printing

Private Sub cmdCancel_Click()
    Me.Hide
End Sub

Private Sub cmdSave_Click()
    Call AssignFormGlobalVars
    Me.Hide
End Sub
'---------------------------------------------------------------------------------------
' Procedure : AssignFormGlobalVars()
' DateTime  : 10/16/2007
' Purpose   : Assign the form's global vars
'---------------------------------------------------------------------------------------
'
Public Sub AssignFormGlobalVars()
    
    g_str451 = f451
    g_str466 = f466
    g_str471 = Left(f471, InStr(1, f471, "."))
    g_str484 = f484
    g_str492 = f492
    g_str489 = f489
    g_str1903 = f1903
    g_str3072 = f3072
    g_str1493 = IIf(f1493 = 1, "Y", "N")

End Sub

Private Sub f451_Change()
    Call NumericOnly(f451, False)
    Call CheckLength(f451, 4)
End Sub

Private Sub f466_Change()
    Call NumericOnly(f466, True)
End Sub
Private Sub f471_KeyPress(KeyAscii As Integer)
    If Len(f471) >= 1 Then
        Call SearchCombo(f471, KeyAscii)
    End If
End Sub

Private Sub Form_Load()
    f484 = frmSetup.f484
    f489.AddItem "I"
    f489.AddItem "II"
    f489.AddItem "III"
End Sub
